home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Ahoy 1986 June
/
Ahoy_Magazine_86-06_1986_Double_L.d64
/
got a match
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
11KB
|
248 lines
5 rem" [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]
6 [143]" (NULL) got a match? (NULL)
7 rem" [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]
8 [143]" by walter e. meyers
9 rem" 403 carriage lane, cary, nc
10 [151] 53269,0:[151] 53272,21:[151] 648,4:[151] 56576,[194](56576)[176] 3:[137] 100
20 [151] 198,0:[146] 198,1:i[178][194](631):[151] 198,0:[142]
30 [151] s[170]24,15:[151] s[170]5,45:[151] s[170]6,165:[151] s[170]4,33:[151] s[170]1,6:[151] s,5
35 [129] t[178]1 [164] 100:[130]:[151] s[170]4,32:[151] s[170]4,16:[142]
40 [151] s[170]24,15:[151] s[170]6,247:[151] s[170]4,17:[151] s[170]1,40:[137] 35
50 [151] 781,ln:[151] 782,col:[151] 783,0:[158] 65520:[142]
60 [129] i[178]s [164] s[170]24:[151] i,0:[130]:[142]
70 [153]"load" pl$ n$(k):[142]
80 [151] v[170]6,144:[151] v[170]16,0:[151] v[170]21,8:[142]
90 n[178][181]([187](0)[172]d[170]1):[142]
99 [143] initialize
100 sc[178]53281:bo[178]53280:[151] sc,15:[151] bo,15:[153]"loadpoke one moment, please."
110 [129] music[178]1 [164] 124:[135] a:[130]
120 [129] type[178]49152 [164] 49184:[135] a:[151] ty,a:[130]
130 [129] sprite[178]49216 [164] 49599:[135] a:[151] sp,a:[130]
140 [129] joystick[178]49600 [164] 49736:[135] a:[151] jo,a:[130]
150 v[178]53248:[151] v[170]23,53:[151] v[170]29,48:[129] i[178]1 [164] 6:[151] 52215[170]i,i:[130]
160 [151] v,255:[151] v[170]2,255:[151] v[170]4,254:[151] v[170]8,242:[151] v[170]9,194
170 [151] v[170]10,245:[151] v[170]11,236:[151] v[170]39,7:[151] v[170]40,7:[151] v[170]41,8:[151] v[170]42,7
180 [151] v[170]43,8:[151] v[170]44,14:s[178]54272
190 [134] t$(19):p[178]2:[137] 1000
198 :
199 [143] instructions
200 [153]"loadpokepeekerzerkons come in four different kinds,"[166]6)"and in a ";
210 [153]"variety of colors.":[153]"left$ere they are:":[153]:[153][163]2) nm$(1);
220 [153][163]13) nm$(2) [163]22) nm$(3) [163]32) nm$(4):[153][163]4) bz$(1);
230 [153][163]14) bz$(2) [166]8) bz$(3) [166]8) bz$(4):[153]:[153]:[153]
240 [153] sk$ " left$it any key when y'all're done"[166]10)"studyin' and are ready";
250 [153]" to play.":[141] 20
398 :
399 [143] input
400 [153]"loadpokeleft$ow many folks'll be playin'" ng$:su$[178]"":cn$[178]"":vb$[178]"is"
410 [141] 20:np[178]i[171]48:[139](np[179]1)[176](np[177]9)[167] 410
420 [153]"(NULL)umber of players ="np:[153]:[153]
430 [153] sk$ "(NULL)ick a difficulty level by hittinga number key.":[153]
440 [153][163]9)"stopvalasy"[166]17)"left$ard" [166]15)"-tantan(NULL)tantan(NULL)tantan(NULL)tantan(NULL)tantan(NULL)tantan(NULL)tantan(NULL)tantan<"
450 [153][163]9)"stop1 2 3 4 5 6 7 8 9"
460 [141] 20:[139] (i[179]49)[176](i[177]57) [167] 460
470 i[178]i[171]48:d(1)[178]i[170]3:i[178]60[171](i[172]5):cy[178][181](2.5[172]i)
480 [153]""sk$ "left$it any key when you're ready to start.":[141]20
498 :
499 [143] main loop
500 c$[178]"1stop234clr56":[129] k[178]1 [164] np:[151] bo,0:[151] sc,15:[129] i[178]1 [164] 4:d[178]d(1)
510 [141] 90:z(i)[178]n:in(i)[178]20[171]z(i):d[178]6:[141] 90:z$(i)[178][202](c$,(n[172]2)[171]1,2)
520 rz$(i)[178][201](z$(i),1):[130]:[153]"":[141] 70:[153]:[153]:[129] i[178]1 [164] 4
530 [153][163]in(i));:[129] j[178]1[164]z(i):[153] rz$(i) bz$(i);:[130]:[153]:[153]:[130]
540 [129] i[178]1 [164] 4:[153]:[130]:ln[178]17:col[178]30:[141] 50:[153] m$:[151] v[170]21,53
550 ve[178]144:[129] i[178]1 [164] 15:[151] v[170]1,ve[170]2:[151] v[170]5,ve:[129] j[178]1 [164] 10:[151] 52216,p
560 p[178]3[171]p:[129] t[178]1 [164] cy:[130]:[130]:ve[178]ve[170]1:[130]:[151] v[170]21,0
570 [151] sc,0:[153]"loadopen":[141] 70:[153]""[163]19)"syswait(NULL)ove the pointer to"
580 [153][163]19)"your answer and hit":[153][163]19)"the fire button.open"
590 ps$[178][196](ps(k)[172]10):[153]" score "ps$" list":[153]
600 [129] i[178]1 [164] 4:ln[178]9:col[178]5:[141] 50:[153]"left$ow many " nm$(i) "? ":[141] 80
610 [153] " 1 2 3 4 5 6 7 8 9 10 11 12":[151] v[170]7,147:[151] 49152,24
620 [151] 49153,24:[151] 49154,34:[151] 49155,10:[151] 49156,240:[158] 49600
630 [139] [194](v[170]16)[178]8 [167] an[178][181]([194](v[170]6)[173]34)[170]11:[137] 650
640 an[178][181](([194](v[170]6)[171]11)[173]24)[170]1
650 [139] an[178]z(i) [167] [141] 40:ps(k)[178]ps(k)[170]1:[137] 670
660 [141] 30
670 [141] 80:ln[178]15:col[178]5:[141] 50:[153]"(NULL)hat color?"
680 [153]"black white red purple green blue":[151] v[170]7,197:[151] 49152,56
690 [151] 49153,32:[151] 49154,56:[151] 49155,0:[151] 49156,200:[158] 49600
700 ho[178][194](v[170]6)[171]24:[139] [194](v[170]16)[178]8 [167] ho[178]ho[170]255
710 an[178][181](ho[173]52[170]1):[139] an[178][197](z$(i)) [167] [141] 40:ps(k)[178]ps(k)[170]1:[137] 730
720 [141] 30
730 [130]:[151] v[170]21,0:[130]:[151] v[170]21,0:gm[178]gm[170]1:[139] gm[179]6 [167] 500
798 :
799 [143] print scores, new/end game
800 [153]"load":[151] sc,15:[151] bo,15:ln[178]2:col[178]9:[141] 50:[153] es$:[153]
805 [129] i[178]1 [164] np:[153][163]13)"poke(NULL)layer" i "cmd:" ps(i)[172]10:x(i)[178]ps(i):[130]
810 [129] j[178]1 [164] np:[129] i[178]1 [164] np:[139] x(j)[179]ps(i) [167] x(j)[178]0
820 [130]:[130]
825 [129] j[178]1 [164] np:[129] i[178]1 [164] np
830 [139] x(j)[179][177]0[167] [139] j[179][177]i[167] [139] x(j)[178]ps(i)[167] su$[178]"s":cn$[178]"and":vb$[178]"cmdcmdcmdare"
840 [130]:[130]:[153]"(NULL)layer" su$;
845 [129] i[178]1 [164] np:[139] x(i)[179][177]0 [167] [153] i;cn$;
850 [130]:[153] vb$" the winner" su$ "!"
860 [153]" left$it (NULL)poke if y'all want to play again or" r$ [163]9)"any other key";
870 [153]" to end.":[141] 20:[139] i[178]89 [167] gm[178]0:ng$[178]" this time?":[137] 400
880 [141] 60:[151] 53272,21:[151] 648,4:[151] 56576,[194](56576) [176] 3:[153]"loadcont"
890 [151] sc,6:[151] bo,14:[156]:[162]:[128]
998 :
999 [143] load font
1000 [151] 56334,[194](56334) [175] 254:[151] 1,[194](1) [175] 251:[158] 49152
1010 [151] 1,[194](1) [176] 4:[151] 56334,[194](56334) [176] 1
1020 [135] a:[139] a[179]0 [167] 1040
1030 [129] i[178]0 [164] 7:[135] b:[151] 61440[170](a[172]8)[170]i,b:[130]:[137] 1020
1040 [129] irq[178]53236 [164] 53245:[135] a:[151] irq,a:[130]
1050 [151] 53246,[194](792):[151] 53247,[194](793):[151] 792,244:[151] 793,207
1098 :
1099 [143] strings
1100 t0$[178]"verifythen sin":t1$[178]"verifythen ":t2$[178]" waitpokeget"
1110 t$(1)[178]" (NULL)right$(NULL)right$= (NULL)right$ ":t$(2)[178]" peek^peekpeekpeek -< ":t$(3)[178]" mid$expmid$(NULL)val valval "
1120 t$(4)[178]"or=right$(NULL)right$=(NULL)right$atnatn":t$(5)[178]"peekpeekpeek-<peekpeek -<":t$(6)[178]"valvalvalvalvalvalmid$(NULL)valval"
1130 t$(7)[178]" ortantantan^ ":t$(8)[178]" or(NULL)(NULL)tanright$mid$^ ":t$(9)[178]" peek or(NULL) peek "
1140 t$(10)[178]" /right$ (NULL) (NULL)exp ":t$(11)[178]" /tantantanexp ":t$(12)[178]" a tale "
1150 t$(13)[178]" of the ":t$(14)[178]" old west ":t$(15)[178]" ":t$(16)[178]t$(15)
1160 t3$[178]"verifycoswait sqrpokeget":t4$[178]"lognewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewwaitcos"
1170 g$[178]" ":sk$[178]"/tan(NULL)(NULL)waittanexpcmdcmdcmdcmdrnd*waitonpoke"
1180 c1$[178]" oncmd oncmdcmdcmd fre fre oncmdcmdcmdcmdcmd oncmdcmdcmdcmdcmd oncmdcmdcmd oncmdcmdcmd oncmd oncmd "
1190 c2$[178]"getoncmd*newoncmdcmdcmdnewwaitgetgetoncmdcmdcmdwaitgetget*oncmdcmdwaitget"
1200 bz$(1)[178]"&'cmdcmd*+on":bz$(2)[178]"$%cmdcmd*+on":bz$(3)[178]"!#cmdcmd*+on":nm$(2)[178]"(NULL)oes"
1210 bz$(4)[178]"()cmdcmd*+on":nm$(1)[178]"(NULL)arries":nm$(3)[178]"lenurlies":nm$(4)[178]"(NULL)hemps"
1230 n$(1)[178]" ^ cmdcmdcmd peek cmdcmdcmd val ":n$(2)[178]"(NULL)right$ cmdcmdcmd(NULL)(NULL) cmdcmdcmd/len "
1240 n$(3)[178]"(NULL)right$ cmdcmdcmdstr$int cmdcmdcmdmid$(NULL) ":n$(4)[178]"atnatn cmdcmdcmd/< cmdcmdcmd val "
1250 n$(5)[178]"orlen cmdcmdcmd/right$ cmdcmdcmdmid$(NULL) ":n$(6)[178]"(NULL)right$ cmdcmdcmd-right$ cmdcmdcmdmid$(NULL) "
1260 n$(7)[178]"or^ cmdcmdcmd peek cmdcmdcmd val ":n$(8)[178]"(NULL)right$ cmdcmdcmd(NULL)int cmdcmdcmdmid$(NULL) "
1270 n$(9)[178]"(NULL)right$ cmdcmdcmdmid$< cmdcmdcmdmid$(NULL) ":ng$[178]"?":m$[178]"verifygetcmdgetcmdgetpoke":r$[178][199](13)
1280 pl$[178]" orright$atn (NULL)right$atnatnorlenorright$ "[170]r$[170]" -(NULL)peek -<mid$<-len-int "[170]r$[170]" val /lenvalval val/lenvalval onon"
1290 es$[178]sk$[170]"*newnewnewnewnewnewnewrndcmdcmdcmdcmdcmdcmdcmdcmdcmdget(NULL)(NULL)core(NULL)waitgetcmdcmdcmdcmdcmdcmdcmdcmdcmdlognewnewnewnewnewnewnewwaitcosonon"[170]sk$[170]""
1298 :
1299 [143] print title
1300 [153]"load":[151] 648,200:col[178]0:[129] i[178]12 [164] 16:ln[178]i:[141] 50:[153]"sys" g$:[130]
1310 col[178]4:ln[178]15:[141] 50:[153] c1$:col[178]35:ln[178]13:[141] 50:[153] c2$
1320 col[178]10:ln[178]2:[141] 50:[153] t0$:[129]i[178]1 [164] 16:[153][163]10)t1$ t$(i) t2$:[130]
1330 [153][163]10)t3$:[153][163]10)t4$:[151] 53272,44:[151] 56576,[194](56576)[175]252
1340 [151] sc,15:[151] bo,15:[141] 1400
1350 [153] sk$ "left$it right$poke for right$nstructions, or any ";
1360 [153] [166]12) "other key to skip them. ":[141] 20:[139] i[178]73 [167] 200
1370 [137] 400
1398 :
1399 [143] play the music
1400 [140]:[141] 60:[151] s[170]24,15
1410 [151] s[170]5,96:[151] s[170]6,70:[151]s[170]12,96:[151] s[170]13,70:[151] s[170]19,96:[151] s[170]20,70
1420 [135] n1,n2,n3,dr:[139] dr[178][171]1 [167] [141] 60:[142]
1430 h1[178][181](n1[173]256):l1[178]n1[171](h1[172]256):h2[178][181](n2[173]256):l2[178]n2[171](h2[172]256):h3[178][181](n3[173]256)
1440 l3[178]n3[171](h3[172]256):[151] s[170]1,h1:[151] s,l1:[151] s[170]8,h2:[151] s[170]7,l2:[151] s[170]15,h3
1450 [151] s[170]14,l3:[151] s[170]4,17:[151] s[170]11,17:[151] s[170]18,17:[129] t[178]1 [164] dr[172]20:[130]
1460 [151] s[170]4,16:[151] s[170]11,16:[151] s[170]18,16:[137] 1420
1998 [143] data bloc
1999 [143] music
2000 [131] 7217,8583,11457,6,7217,8583,11457,2,7217,8583,11457,12
2010 [131] 5728,7217,8583,12,8583,11457,14435,6,8583,11457,14435,2
2020 [131] 8583,11457,14435,12,7217,8583,11457,12,7217,8583,11457,6
2030 [131] 8583,11457,14435,2,11457,14435,17167,18,11457,14435,17167,4
2040 [131] 9634,12860,15294,4,9634,11457,14435,4,8583,10814,12860,24
2050 [131] 8583,10814,12860,4,8583,11457,14435,4,9634,12860,15294,12
2060 [131] 9634,12860,15294,12,8583,11457,14435,6,8583,10814,12860,2
2070 [131] 8583,11457,14435,12,7217,8583,11457,12,7217,8583,11457,4
2080 [131] 8583,11457,14435,4,8583,10814,12860,18,5728, 7217, 8583,4
2090 [131] 6430,7647,10814,4,8583,10814,12860,4,7217,8583,11457,24,0,0,0,-1
2098 :
2099 [143] custom typefont
2100 [131] 169,0,133,251,133,253,169,216
2110 [131] 133,252,169,240,133,254,162
2120 [131] 16,160,0,177,251,145,253,136
2130 [131] 208,249,230,252,230,254,202
2140 [131] 208,240,96
2198 :
2199 [143] sprites
2200 [131]0,0,0,0,0,0,0,0,0,0,48,0,0,56,0,0,56,0,0,124,0
2210 [131]0,126,0,0,126,0,0,127,0,0,255,128,1,255,128,1,247,192,1,245,224
2220 [131]3,245,224,3,193,224,3,25,224,3,131,224 ,3,199,192,1,231,128,0,248,0,0
2249 :
2250 [131]0,224,0,0,224,0,0,240,0,0,240,0,1,240,0,3,248,0,3,216,0
2260 [131]3,216,0,3,220,0,3,220,0,6,220,0,14,222,0,14,214,0,12,199,0
2270 [131]28,87,128,24,85,128,26,7,128,14,47,0,7,111,0,3,252,0,0,240,0,0
2299 :
2300 [131]0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
2310 [131]0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,120,0
2320 [131]0,252,0,1,254,0,1,255,0,3,255,0,3,255,0,3,254,0,1,252,0,0
2349 :
2350 [131] 0,12,0,0,30,0,0,30,0,0,30,0,0,30,0,0,30,0,1,158,0,19,158,0,51,128,0
2360 [131] 115,159,192,112,31,192,7,193,192,127,159,192,127,191,192,63,255,128
2370 [131] 24,255,0,3,248,0,15,255,0,0,0,0,7,254,0,7,254,0,0
2399 :
2400 [131]0,0,0,0,0,0,0,0,0,63,227,224,80,246,32,95,180,32,64,52,32,63,228,32
2410 [131]12,38,48,127,254,24,193,7,12,129,7,134,193,7,131,127,253,131,193,7,131
2420 [131]129,3,131,193,7,3,127,254,3,48,70,3,48,67,3,31,254,3,0
2449 :
2450 [131]7,255,254,7,255,254,6,127,254,4,63,254,6,127,254,7,255,254,7,255,254
2460 [131]0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
2470 [131]0,0,0,0,0,0,0,0
2498 :
2499 [143] joystick
2500 [131]173,0,220,41,15,201,11,240,13,201,7,240,59,173,0,220,41,16,208,236
2510 [131]96,0,173,6,208,205,1,192,240,226,205,3,192,208,24,169,0,141,21,208
2520 [131]141,16,208,173,4,192,141,6,208,169,8,141,21,208,76,60,194,0,56,173
2530 [131]6,208,237,0,192,141,6,208,76,60,194,0,173,6,208,205,2,192,240,176
2540 [131]205,4,192,208,25,169,0,141,21,208,169,8,141,16,208,173,3,192,141,6
2550 [131]208,169,8,141,21,208,76,60,194,0,24,173,6,208,109,0,192,141,6,208
2560 [131]76,60,194,0,162,207,160,0,200,208,253,202,208,248,76,192,193
2598 :
2599 [143] character data
2600 [131]122,127,63,31,15,7,3,1,0
2610 [131]161,0,0,15,31,56,48,48,48
2620 [131]163,0,0,240,248,28,12,12,12
2630 [131]164,0,0,15,31,63,63,63,48
2640 [131]165,0,0,240,248,252,252,252,12
2650 [131]166,8,12,143,127,56,240,112,48
2660 [131]167,16,48,241,254,28,15,14,12
2670 [131]168,0,0,15,30,62,62,54,50
2680 [131]169,0,0,240,120,124,124,108,76
2690 [131]170,48,48,56,31,15,0,0,0
2700 [131]171,12,12,28,248,248,0,0,0
2710 [131]193,255,255,255,195,195,195,195,195
2720 [131]194,195,195,195,195,195,195,195,195
2730 [131]195,255,255,255,7,7,255,255,255
2740 [131]196,255,255,255,224,224,255,255,255
2750 [131]197,195,195,195,195,195,255,255,255
2760 [131]201,255,255,255,15,7,131,195,195
2770 [131]202,195,195,193,224,240,255,255,255
2780 [131]203,195,195,131,7,15,255,255,255
2790 [131]209,255,255,231,195,195,231,255,255
2800 [131]213,255,255,255,240,224,193,195,195
2810 [131]215,195,195,225,240,240,225,195,195
2820 [131]235,195,195,195,192,192,195,195,195
2830 [131]237,195,195,195,192,192,255,255,255
2840 [131]238,255,255,255,3,3,195,195,195
2850 [131]240,255,255,255,192,192,195,195,195
2860 [131]242,255,255,255,0,0,195,195,195
2870 [131]243,195,195,195,3,3,195,195,195
2880 [131]245,195,195,135,15,15,135,195,195
2890 [131]253,195,195,195,3,3,255,255,255
2900 [131]254,248,248,124,124,62,62,31,31
2910 [131]255,0,128,192,224,240,248,252,254,-1
2918 :
2919 [143] interrupt request
2920 [131]72,169,4,141,136,2,104,108,254,207
4998 :
4999 [143] check data
5000 ck[178]0:cc[178]0
5010 [129] i[178]1 [164] 124:[135] a:ck[178]ck[170]a:[130]
5020 [139] ck[179][177]958347 [167] [153]"error in music data, lines 2000-2090":[144]
5030 [153]"music data ok":ck[178]0:cc[178]0
5040 [129] i[178]1 [164] 33:[135] a:ck[178]ck[170]a:[130]
5050 [139] ck[179][177]5974 [167] [153]"error in font data, lines 2100-2140":[144]
5060 [153]"font data ok":ck[178]0:cc[178]0
5070 ck(1)[178]4844:ck(2)[178]4520:ck(3)[178]1909:ck(4)[178]4626:ck(5)[178]5185:ck(6)[178]3159
5080 [129] j[178]1 [164] 6:[129] i[178]1 [164] 64
5090 [135] a:ck[178]ck[170]a:[130]
5100 [139] ck[179][177]ck(j) [167] [153]"error in sprite"j"data":[144]
5110 [153]"sprite#"j"data ok":ck[178]0:cc[178]0:[130]:ck[178]0:cc[178]0
5120 [129] j[178]1 [164] 137:[135] a:ck[178]ck[170]a:[130]
5130 [139] ck[179][177]16579 [167] [153]"error in joystick data, lines 2500-2560":[144]
5140 [153]"joystick data ok":ck[178]0:cc[178]0
5150 [129] j[178]1 [164] 289:[135] a:ck[178]ck[170]a:[130]
5160 [139] ck[179][177]44406 [167] [153]"error in character data, lines 2600-2910":[144]
5170 [153]"character data ok":[128]
5180 [129] j[178]1 [164] 10:[135] a:ck[178]ck[170]a:[130]
5190 [139] ck[179][177]1197 [167] [153]"error in interrupt data, line 2920":[144]
5200 [153]"interrupt data ok":[128]